`bmi` <-
function(wt,ht)return(signif(wt/(ht/100)^2,3))


